home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / cd-sup / cdrom / ide-fix / installdocs < prev    next >
Text File  |  1999-01-01  |  1KB  |  68 lines

  1. ;$VER: IDEfix Documentation Install 48.8 (06.12.97)
  2. ;Copyright ©1997 Elaborate Bytes, Oliver Kastl
  3.  
  4. (onerror
  5.     (makeassign "DocsInst" (safe))
  6.     (makeassign "Docs" (safe))
  7. )
  8.  
  9.  
  10. (complete 0)
  11.  
  12. (makeassign "DocsInst" "" ( safe) )
  13.  
  14.  
  15. (set #DefaultDir @default-dest )
  16.  
  17. (set #theirlevel @user-level )
  18.  
  19. (user 2)
  20.  
  21. (set #DocsDir
  22.     (askdir
  23.         (prompt "\n\nSpecify the directory in where the IDEfix97/Docs directory shall be created:" )
  24.         (help "\n\nSpecify the directory in where the IDEfix97 and the Docs directory shall be created." )
  25.         (default #DefaultDir)
  26.         (newpath)
  27.     )
  28. )
  29.  
  30. (complete 45)
  31.  
  32. (user #theirlevel)
  33.  
  34. (set #DocsDir (tackon #DocsDir "IDEfix97"))
  35.  
  36. (if (NOT (exists #DocsDir ))
  37.     (
  38.     (makedir #DocsDir
  39.         (safe)
  40.         (infos)
  41.     )
  42.     )
  43. )
  44.  
  45. (set @default-dest #DocsDir)
  46.  
  47.  
  48. (makeassign "Docs" #DocsDir (safe))
  49.  
  50. (complete 50)
  51.  
  52. (working "\n\nDecrunching Documentation...."
  53.          "\n\nPlease Wait!")
  54.  
  55.     ( if (NOT @pretend )
  56.     (( if ( run "DocsInst:c/lhex -afFqw=Docs: e DocsInst:Docs.lha" )
  57.         (
  58.         (abort "\n\nUnable to decrunch documentation!")
  59.         )
  60.     )))
  61.  
  62.  
  63. (complete 100)
  64.  
  65. (makeassign "DocsInst" (safe))
  66. (makeassign "Docs" (safe))
  67.  
  68.